From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 7 May 2001 17:38:07 +0000 (+0000)
Subject: (x_set_foreground_color): Set frame's cursor_pixel.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40430
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=908a2b7e5d522a121ec190b306c636d38a0e98ff;p=emacs.git

(x_set_foreground_color): Set frame's cursor_pixel.
---

diff --git a/src/xfns.c b/src/xfns.c
index f6972f9c12b..52fe0c23dff 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1358,8 +1358,13 @@ x_set_foreground_color (f, arg, oldval)
 		      f->output_data.x->foreground_pixel);
       XSetBackground (FRAME_X_DISPLAY (f), f->output_data.x->reverse_gc,
 		      f->output_data.x->foreground_pixel);
+      
       XSetBackground (FRAME_X_DISPLAY (f), f->output_data.x->cursor_gc,
 		      f->output_data.x->foreground_pixel);
+      unload_color (f, f->output_data.x->cursor_pixel);
+      f->output_data.x->cursor_pixel
+	= x_copy_color (f, f->output_data.x->foreground_pixel);
+
       UNBLOCK_INPUT;
       update_face_from_frame_parameter (f, Qforeground_color, arg);
       if (FRAME_VISIBLE_P (f))
@@ -1387,6 +1392,7 @@ x_set_background_color (f, arg, oldval)
 		      f->output_data.x->background_pixel);
       XSetForeground (FRAME_X_DISPLAY (f), f->output_data.x->cursor_gc,
 		      f->output_data.x->background_pixel);
+      
       XSetWindowBackground (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
 			    f->output_data.x->background_pixel);
       {